home *** CD-ROM | disk | FTP | other *** search
/ The Uninvited Press Kit / THE UNINVITED.iso / pc / program.dxr / Internal_15_Offset Stage.ls < prev    next >
Encoding:
Text File  |  2008-12-30  |  602 b   |  19 lines
  1. on startMovie
  2. end
  3.  
  4. on OffsetStage
  5.   stageHeight = the stageBottom - the stageTop
  6.   stageWidth = the stageRight - the stageLeft
  7.   monitorHeight = getAt(getAt(the desktopRectList, 1), 4)
  8.   monitorWidth = getAt(getAt(the desktopRectList, 1), 3)
  9.   monitorDifference = (monitorWidth + 0.0) / (monitorHeight + 0.0)
  10.   if monitorDifference > 2 then
  11.     monitorWidth = monitorWidth / 2
  12.   else
  13.     nothing()
  14.   end if
  15.   centerHeight = (monitorHeight / 2) - 375
  16.   centerWidth = (monitorWidth / 2) - 465
  17.   (the stage).rect = rect(centerWidth, centerHeight, centerWidth + stageWidth, centerHeight + stageHeight)
  18. end
  19.